home *** CD-ROM | disk | FTP | other *** search
/ Maclife 13 / MACLIFE13-No-93-1996.ISO.7z / MACLIFE13-No-93.ISO / Selection / OMO-J 体験版 / Oracle Media Objects™J 体験版 / Library / System / System (.txt) next >
UltraCard Stack  |  1996-03-21  |  112KB  |  1,361 lines
  1. CRDHabout
  2. CRDHpreferences
  3. CRDHsplash
  4. CRDHsplash2
  5. -- System Stack (Macintosh)
  6. -- Oracle Media Objects
  7.  Version 1.0
  8. -- Copyright 
  9.  Oracle Corporation 1995
  10. -- jdill, 9/20/95
  11. -- okurose,2/7/96
  12. on startUp
  13.   hide menubar
  14.   hide the sizebox
  15.   send doPreferences to card "Preferences" of (the long name of me)
  16.   if exists(cd 1 of this stack) then
  17.     hide toolbar
  18.     popup card "Splash2" of (the long name of me) as plain
  19.     show toolbar
  20.     show menubar
  21.   else
  22.     popup card "Splash" of (the long name of me) as plain
  23.     put it into splashBtn
  24.     show menubar
  25.     if splashBtn is "new" then
  26.       ask file "
  27. N" for save with "
  28.       if it is empty then exit startup
  29.       put it into fname
  30.       create stack fname
  31.       go cd 1 of stack fname
  32.     else if splashBtn is "open" then
  33.       ask file "
  34. " of type "STAK"
  35.       if it is empty then exit startup
  36.       put it into fname
  37.       go cd 1 of stack fname
  38.     end if
  39.   end if
  40. end startUp
  41. on doMenu theItem,theMenu
  42.   if not(theItem is "Oracle Media Objects
  43. ..." or (theItem is "
  44. ..." and theMenu is "
  45. ")) then pass doMenu
  46.   put the selectedObject into selObject
  47.   put the editBkgnd into onBkgnd
  48.   put word 1 of the tool into selTool
  49.   put the visible of the toolbar into toolbarVis
  50.   hide toolbar
  51.   if theItem is "
  52. ..." then
  53.     popup cd "Preferences" of (the long name of me) titled "
  54.   else
  55.     popup cd "About" of (the long name of me) as dialog
  56.   end if
  57.   if selObject is not empty then
  58.     set the editBkgnd to onBkgnd
  59.     select selObject
  60.   else
  61.     do "choose"&&selTool&&"tool"
  62.     set the editBkgnd to onBkgnd
  63.   end if
  64.   set the visible of the toolbar to toolbarVis
  65. end doMenu
  66. function OMOPath
  67.   --  put (the length of the long name of me) - 7 into lastPathChar
  68.   put (the number of chars of the long name of me) - 7 into lastPathChar
  69.   put char 8 to lastPathChar of the long name of me into sysPath
  70.   subtract 7 from lastPathChar
  71.   if char (lastPathChar-8) to lastPathChar of sysPath is ":Library:" then
  72.     return char 1 to (lastPathChar-8) of sysPath
  73.   else
  74.     return sysPath
  75.   end if
  76. end OMOPath
  77. function stackPath
  78.   put the number of chars of the short name of this stack into shortNameLength
  79.   put the number of chars of the long name of this stack into longNameLength
  80.   --  put the length of the short name of this stack into shortNameLength
  81.   --  put the length of the long name of this stack into longNameLength
  82.   return char 8 to (longNameLength-shortNameLength-1) of the long name of this stack
  83. end stackPath
  84. function objectClasses
  85.   return "bitmap,shape,button,field,picklist,datasheet,path,movie,sound,timer,group,palette"
  86. end objectClasses
  87. PFONT
  88. APPLE CHANCERY
  89. ARIAL    
  90. ARIAL NARROW~
  91. ARIAL ROUNDED MT BOLD
  92. ATHENS
  93. AVANT GARDE
  94. B COURIER BOLD
  95. B FRANKLIN GOTHIC DEMIP
  96. B FUTURA BOLD
  97. B GARAMOND BOLD
  98. B HELVETICA BOLD
  99. B ITCKABEL BOLD
  100. B ORCGARAM BOLD
  101. B TIMES BOLD
  102. BAUHAUS 93
  103. BI COURIER BOLDOBLIQUE
  104. BI FRANKLIN GOTHIC DEMIOBLIQUEO
  105. BI GARAMOND BOLDITALICL
  106. BI HELVETICA BOLDOBLIQUE~
  107. BI ORCGARAM BOLDITALICe
  108. BI TIMES BOLDITALIC
  109. BIFFO MT
  110. BIRCH
  111. BK ITCKABEL BOOK~
  112. BO FUTURA BOLDOBLIQUE
  113. BOOK ANTIQUAa
  114. BOOKMAN
  115. BOOKMAN OLD STYLE    
  116. BOOKMAN OLD STYLE BOLD
  117. BRAGGADOCIO
  118. BRITANNIC BOLDV
  119. BRUSH SCRIPT MT
  120. C FUTURA CONDENSEDQ
  121. C HELVETICA CONDENSED0 
  122. CAIRO
  123. CB FUTURA CONDENSEDBOLD
  124. CB HELVETICA CONDENSED BOLD
  125. CBI HELVETICA CONDENSED BOLDOBL
  126. CBO FUTURA CONDBOLDOBLIQUEP
  127. CENTURY
  128. CENTURY GOTHIC
  129. CENTURY SCHOOLBOOK
  130. CHICAGO
  131. CI HELVETICA CONDENSED OBLIQUE
  132. CL FUTURA CONDENSEDLIGHT
  133. CL HELVETICA CONDENSED LIGHTx
  134. CLB HELVETICA CONDENSED BLACK
  135. CLBI HELVETICA CONDENSED BLACKO
  136. CLI HELVETICA CONDENSED LIGHTOB
  137. CLO FUTURA CONDLIGHTOBLIQUE
  138. CLOSEDCAPTION2
  139. CO FUTURA CONDENSEDOBLIQUE{
  140. COLONNA MT 
  141. COURIER
  142. COURIER NEW
  143. CXB FUTURA CONDEXTRABOLD~
  144. CXBO FUTURA CONDEXTRABOLDOBLIQU
  145. D ITCKABEL DEMI
  146. 0    DECOLLAGE
  147. DELTASYMBOL
  148. 0    DESDEMONA
  149. DORCHESTER SCRIPT MT
  150. 0    ESPY SANS
  151. ESPY SANS BOLD
  152. EWORLD TIGHT~    
  153. FOOTLIGHT MT LIGHT
  154. FRANKLINGOTHICP
  155. FUTURAM
  156. FUTURA BOOK
  157. GARAMOND~    
  158. GENEVAQ
  159. GILLSANSa
  160. GILLSANS BOLD
  161. GILLSANS BOLDITALIC
  162. GILLSANS CONDENSED 
  163. GILLSANS EXTRABOLD 
  164. GILLSANS ITALIC
  165. GILLSANS ULTRABOLD
  166. H FRANKLIN GOTHIC HEAVY
  167. H FUTURA HEAVY
  168. 0    HELVETICA
  169. HI FRANKLIN GOTHIC HEAVYOBLIQUE
  170. HO FUTURA HEAVYOBLIQUEP
  171. HOEFLER TEXT
  172. HOEFLER TEXT ORNAMENTSP
  173. I COURIER OBLIQUE
  174. I FRANKLIN GOTHIC BOOKOBLIQUED 
  175. I GARAMOND LIGHTITALICP
  176. I HELVETICA OBLIQUE
  177. I ORCGARAM LIGHTITALICA
  178. I TIMES ITALIC
  179. IMPACT
  180. INDUSTRIA INLINE~    
  181. INDUSTRIA INLINEA    
  182. INDUSTRIA SOLID
  183. INDUSTRIA SOLIDA~
  184. JAPANESESIQ
  185. KINO MT
  186. L FUTURA LIGHT
  187. LO FUTURA LIGHTOBLIQUE 
  188. LOCKFONT~    
  189. LONDONS
  190. LOS ANGELES
  191. M ITCKABEL MEDIUM
  192. MATURA MT SCRIPT CAPITALSMA
  193. MISTRAL
  194. MOBILEP
  195. MONACOA
  196. MONOTYPE CORSIVAPT 
  197. MONOTYPE SORTS
  198. MOTTECORMM_300 CN
  199. MOTTECORMM_450 SC
  200. MOTTECORMM_555 WD
  201. MOTTECORMM_600 NO
  202. MS LINEDRAW
  203. MT EXTRAa
  204. N HELVETICA NARROW
  205. NAGOYA
  206. NEW CENTURY SCHLBK
  207. NEW YORKV
  208. O FUTURA BOOKOBLIQUE~
  209. O FUTURA OBLIQUE~
  210. OCR-A
  211. ORCGARAM
  212. OSAKA-
  213. OSAKA
  214. PALATINO
  215. PENUMMM_220 LT 0 SA
  216. PENUMMM_220 LT 1000 SR 
  217. PENUMMM_220 LT 150 FS
  218. PENUMMM_220 LT 500 HS
  219. PENUMMM_365 RG 0 SA
  220. PENUMMM_365 RG 1000 SRT
  221. PENUMMM_365 RG 150 FS
  222. PENUMMM_365 RG 500 HSUE
  223. PENUMMM_585 SB 0 SA
  224. PENUMMM_585 SB 1000 SRP
  225. PENUMMM_585 SB 150 FS
  226. PENUMMM_585 SB 500 HSUE
  227. PENUMMM_725 BD 0 SA
  228. PENUMMM_725 BD 1000 SR
  229. PENUMMM_725 BD 150 FS
  230. PENUMMM_725 BD 500 HSk
  231. 0    PEPITA MT
  232. PLAYBILL~    
  233. 0    QUICKTYPE
  234. QUICKTYPE CONDENSED
  235. QUICKTYPE MONO 
  236. QUICKTYPE PI
  237. RUNIC MT CN
  238. SAN FRANCISCOa
  239. SCOTCH ROMAN MT
  240. SCOTCH ROMAN MT ITALICE
  241. SCRIPT MT BD
  242. STENCIL
  243. SYMBOL
  244. TEKTON PLUS REGULAR
  245. TIMES
  246. TIMES NEW ROMAN
  247. TORONTO
  248. TTYFONT
  249. U ITCKABEL ULTRA
  250. VENICEP
  251. VIVALDI
  252. VT100
  253. WIDE LATINP
  254. 0    WINGDINGS
  255. XB FUTURA EXTRABOLD
  256. XBO FUTURA EXTRABOLDOBLIQUE
  257. XEBEC
  258. ZAPF CHANCERY
  259. ZAPF DINGBATS
  260.     INFO
  261. Splash2SCRP
  262. on openCard
  263.   put empty into fld "status"
  264.   put OMOPath()&"Library" into folderName
  265.   put the list of files of type "STAK" in folderName into libraryList
  266.   repeat with i = 1 to the number of lines of libraryList
  267.     put line i of libraryList into libraryName
  268.     if libraryName is "System" then next repeat
  269.     put "Librarying"&"e&libraryName"e&"..." into fld "status"
  270.     library folderName&":"&libraryName   
  271.   end repeat
  272.   put empty into fld "status"
  273.   start timer 1 expire in 5 seconds
  274. end openCard
  275. on mouseUp
  276.   dismiss
  277. end mouseUp
  278. on returnKey
  279.   dismiss
  280. end returnKey
  281. on enterKey
  282.   dismiss
  283. end enterKey
  284. wINFO
  285. statusTAIL
  286. xINFO
  287. trial notedata
  288. This software is provided under a 90-day trial license.
  289. Please consult the accompanying text files for license terms and ordering information.ADDD
  290. yINFO
  291. timer id 121SCRP
  292. on timerExpired
  293.   dismiss
  294. end timerExpired
  295. AboutSCRP
  296. on mouseup  
  297.   dismiss
  298. end mouseup
  299. on returnKey
  300.   dismiss
  301. end returnKey
  302. on enterKey
  303.   dismiss
  304. end enterKey
  305. SplashSCRP
  306. on openCard
  307.   hide bmp "Open Up"
  308.   hide bmp "New Up"
  309.   hide bmp "Open Down"
  310.   hide bmp "New Down"
  311.   put empty into fld "status"
  312.   put OMOPath()&"Library" into folderName
  313.   put the list of files of type "STAK" in folderName into libraryList
  314.   repeat with i = 1 to the number of lines of libraryList
  315.     put line i of libraryList into libraryName
  316.     if libraryName is "System" then next repeat
  317.     put "Librarying"&"e&libraryName"e&"..." into fld "status"
  318.     library folderName&":"&libraryName   
  319.   end repeat
  320.   lock screen
  321.   put empty into fld "status"
  322.   show bmp "Open Up"
  323.   show bmp "New Up"
  324.   unlock screen
  325. end openCard
  326. on mouseUp  
  327.   closeSplash
  328. end mouseUp
  329. on returnKey
  330.   closeSplash
  331. end returnKey
  332. on enterKey
  333.   closeSplash
  334. end enterKey
  335. on closeSplash returnVal
  336.   lock screen
  337.   hide bmp "Open Up"
  338.   hide bmp "New Up"
  339.   hide bmp "Open Down"
  340.   hide bmp "New Down"
  341.   put empty into fld "status"
  342.   dismiss with returnVal
  343. end closeSplash
  344. sINFO
  345. New UpSCRP
  346. on mouseUp
  347.   hide bmp "New Down"
  348.   closeSplash "new"
  349. end mouseUp
  350. on mouseDown
  351.   show bmp "New Down"
  352. end mouseDown
  353. on mouseStillDown
  354.   set the visible of bmp "New Down" to (the mouseLoc is within the rect of me)
  355. end mouseStillDown
  356. .xx{)
  357. R#v%'$
  358. &tvPR
  359. Sv%'$t
  360. $$pp"""""pp$$
  361. ,,,,,,,,,Pv,,
  362. Wd&$pL
  363. L"$&k
  364. ddP$Q-
  365. %tPZ-Q
  366. .vSFS
  367. --PU{
  368. L"$%kX
  369. GSRSRSS
  370. $#"! 
  371.  Lpp$
  372. XRRQRQQ
  373. $___"-
  374. #,#___$
  375. }~}S}
  376. QQQ[PPP
  377. ZZZPP
  378. 3,,,    
  379. [,QQ[
  380. |vRSSFbb,
  381. -RQ[.QQ
  382. .%|~}
  383.     [,T[    
  384. ETAIL
  385. tINFO
  386. New Downdata
  387. .xx{)
  388. ).X,,dAd-dAd,/X.))
  389. Odd/.
  390. qy^^Y^Y
  391. @$d@$d$@$d@@$@@@$@@$d$@$d$d@@
  392. d$@$d
  393. ,,,,,,,,,Pv,,
  394. $@@@d$
  395. d$@$@$@$$
  396. d$$$d$
  397. $@@@$$@@$d$d
  398. @@@d$
  399. d$@@@
  400. @$@d$$d$$@d
  401. @$@$@@@
  402. @@$@@
  403. @@@$@d
  404. d$@@$d$d
  405. $@$@$@$
  406. $@@@$@
  407. $d@$$
  408. d@$@@$d$d
  409. d@d$@$d$@$d@$@@$@d@$@@@d$@$d
  410. d$@$d$d
  411. d$d@$$
  412. $$$d@$@@$
  413. @@@d$@@$@@
  414. Ydd$d$@$d$@d@$@$@$@d@@@
  415. @@$@d$@@d$@d$@$@
  416. @@$@d$$@d$@@d$@@$@d$@@$d$$d
  417. d$d$@$@d$@$d@$d
  418. @@$d$d@$@@$@@
  419. @$@@$@$$@@$@d$@d$$@d$@$@$@@@d$@d@$$@d$$@$d@$@d@$d
  420. d$@d$d$$@d$d$d@$@@$d$d/k
  421. jYd$$@$@d$@$d@$@$$d@$d@@$d$d$@@
  422. @$d$@d$@@d$@$@@d$@$d$@$d$d$@@
  423. @$d@@$@d
  424. d@$@@$d
  425. d@$@@$d
  426. d$d$@d$@$d$@$@d$d@$@@$d@$@$@d$@d@$@@$d@$@@d$$@d$@$@@$d@@$@@@$@$d@@$d
  427. @@@$@@@$@@$d$@@$d@$d@$dd
  428. k,$d$@@@$d$@d$@@$d$@@@@@@$O
  429. +@@@$@$d$@$d$$d$@$@$d$@@d$@$d@$@@$d$@$d@@$d$$d$@$$d@$d
  430. @$d$$,k
  431. @$@d$@@$@@d@$$@d$$@$@@
  432. d@$$d$@d$d$d$d$$@d$d$d$@$@$d$@$d$@$d$@d$@$@d$@@$@d
  433. j/d$$d$@d$$d$@$@$d$@@@$@
  434. @C^C^@]@@O
  435. OC@@@
  436. $@$@@@d
  437. $d@$d$$@@@
  438. @@$$d
  439. @d@$@$@d@@$@d@$d/
  440. kd$@d@$@@d$@$d$$
  441. C@]C]]]]@]^CL
  442. C]@^CO
  443. d$@@@$@$d@+
  444. +@$@d
  445. d@$@$d$@
  446. @$d@$@$d$@
  447. $d$d@$d$@$d@@$@d$@@$@@
  448. @@@^^Z
  449. $@@$@$d@$@@
  450. @@$@$d
  451. d$@$@dk
  452. $$$d$d$d$@$@d$$@d
  453. COC@@@
  454. $@@$@@@$d$@$d@$@@@$d$@@$@d@
  455. $@@$d@$@$@@$$d$@$@d
  456. @b@C]
  457. C^@OC@
  458. @@$d$@$d$@
  459. @@d$d
  460. @d$@@$d
  461. d$@$@d
  462. d$@@$@@
  463. W¥¥¥¥¥R
  464. YCVLa
  465. CL]CL]C
  466. C^CL]CVL@Z^
  467. d$d@$d$d
  468. d$@$$d@$$d@$o
  469. @$@$@d$@d$@@d$@d$$
  470. ]]@QC]CL]]]L
  471. $@@$@$d$@$@@d$$@$d@$@$d
  472. d$d@@d$$@d$@d$@d$$d@
  473. @$@@@d
  474. d$@$@d$@d@$d
  475. d@@$@%O
  476. +++++
  477. %@d$@@$d$@$@@$@@@$@@$@@$
  478. VKRU+
  479. @$d@$$d@$@@$d@$d@$$d
  480. @d$@d$@$@d$d@@$d$$@d$@@
  481. d$@@$d$@$d$$d
  482. @$@@@
  483. d@@@$@$d$@d
  484. d@@$d
  485. z|W,P,
  486. P|P,W
  487. WMWW,
  488. $$d$@$$d
  489. d@$$d@$@d$@$@@
  490. Ad$@@
  491. @$d@@d@$@@$@$d$@@
  492. CWMPz
  493. z|P,P,
  494. d$$@@$@
  495. @$@$d$$d$@
  496. ++VV++
  497. +++++
  498. @@$@@d$@d@$@@d$$@@d$@@d
  499. @CVCW
  500. d$d$$d@$@d$@@
  501. @$@d$@$dA
  502. d$@$@d@$@$@d$@$@d$@@$d
  503. d$@$@@$@d$@$@d$@d$@$@d$$@
  504. iA@$d$$@@$@@$@
  505. @@$d$@d$$
  506. @@$@d@$$d$@@
  507. AA$@d$@@$d@$@$d@$d
  508. d@$d@$@$dd
  509. d@$@$d
  510. A$@@d$@@
  511. @$@@$@@$d@
  512. RY^]^^]G^
  513. Q^]Y^R
  514. @$$@$@$d@$@$@@
  515. @$d@$@@$d+
  516. d$@d$@$@d$@$@d$@$d@@
  517. @@$d@@$d$@$@$@d$$d$@$d@$
  518. d@@$@d$@d$@$d$@
  519. VLL]]]]C
  520. @]]@C
  521. @d$d@$@
  522. @@$$d@@$@$d@$d$@@
  523. dhdd$@@$@$d@$@$d$@$d@$$d
  524. C]LYL]^L]
  525. @VC^L
  526. ]ZO@Q
  527. d@@$@@$@d@@$
  528. @@$d@$d$$@d$$d$@$@$@@@@
  529. OC^]@]@^C
  530. VC^]CC^C@@CO
  531. L@]@@@
  532. @@$@@$@d$@@$@$@$d$$@@$@$ddkH
  533. @$d$@$d
  534. d@@$d@@d@@@
  535. OC@^@^
  536. @@$@@@d$$@@@$d$d$@$@d$@$
  537. |+@@$$d@@$@$@$@d@$@
  538. @@$$d$@$@$d$@d@$@@d$@
  539. Y&@dd
  540. d@$@$d$@@@@$
  541. @$d$@@@$d
  542. d@$$@$d$dO
  543. d$@$@
  544. @@d$@
  545. @$d@$@@$d@$@@@@$@@@@
  546. @@@@d
  547. @@@@@@$@@$@@
  548. @$d$@@
  549. @$d$@@
  550. +$d$d
  551. d$@d$@$d@$@$d$$@d@$d$@d@@$@@@@d@$d$@@@$@d@
  552. d@@$d
  553. d@@$@@$d
  554. @d@@$d@$d@$@@@$@$d$@d$$@d$d@
  555. @@$@@$@d$@@
  556. d@$@$d$@$$@
  557. @d$@$@$d
  558. d$@$d$@@$d
  559. $@@$d$@@$d$@d$@@
  560. d$d$@$d$@@@$@$@$dd
  561. d$@@@
  562. @@d$@@@$@d
  563. $@d$@d@@d$@@@d@@@d$
  564. |uPQPQ%
  565. (}@+@$dd
  566. $@$d$$$
  567. d$d$@
  568. d$d$@$@$$@@$@$@$$@$@@dd$$$dd
  569. ^:[z&{
  570. --PU{
  571. $$$d@$@d@
  572. @$d$@
  573. Ol|)%
  574. 2-2,,,,32Q2WVWWWW
  575. QQQQPP
  576. QQQ[PPP
  577. ZZZPP
  578. 3,,,    
  579. [,QQ[
  580. |vRSSFbb,
  581. -RQ[.QQ
  582. .%|~}
  583.     [,T[    
  584. ETAIL
  585. zINFO
  586. statusTAIL
  587. rINFO
  588. Open UpSCRP
  589. on mouseUp
  590.   hide bmp "Open Down"
  591.   closeSplash "open"
  592. end mouseUp
  593. on mouseDown
  594.   show bmp "Open Down"
  595. end mouseDown
  596. on mouseStillDown
  597.   set the visible of bmp "Open Down" to (the mouseLoc is within the rect of me)
  598. end mouseStillDown
  599. ?-$###$-?
  600. $6?6$
  601. $#####$-
  602. ?-6-6-6-6?
  603. 66-66
  604. #####6
  605. $$$$$?
  606. ###$-###
  607. $##?    
  608.     ?##$
  609. $-$$-?
  610. -6-6-6
  611. .TAIL
  612. uINFO
  613.     Open Downdata
  614. /PPP_{xxX
  615. yyy_{{xX
  616. yyy_{{xX
  617. ++++}Q
  618. yyy_{{xX
  619. yyy_V{xX
  620. .TAIL
  621. (INFO
  622. field id 40EXTI
  623. |WWW--WW|
  624. PPQQQ
  625. WPPQQ
  626. PQPPP
  627. {PPPQQQ
  628. }z{{xx
  629. xx{zz
  630. .PqxUQ
  631. MLLL<
  632. QQQQQQQQQQQQQQ
  633. QQQPP
  634. W-$WP
  635. WWWWWWPPPPPWWP
  636. SFSLL
  637. zzzzzz}}}}}zz}z}zzz}z}}
  638. PPPWW
  639. {{zz}z}}
  640. xxx{{{{{{{{{{{xxxxxx{{{
  641. xxx{{{
  642. {{_xz
  643. V)$&p
  644. SSSSSS
  645. SSSSSSSSSSSS
  646. <ijeeeeee
  647. SSSSSS
  648. SSSSS
  649. WSSSSS{
  650. $$P$P    }P~
  651. [[[[[T
  652. [[[[[
  653. QsPsP%r:U
  654. s_OLmA
  655. LAQ+eeY
  656. QPW}zx
  657. xxx{{{{xx
  658. x{x{{{{{{
  659. zzz}}}}zz
  660. xxxxxxxx
  661. x{x{x{{{
  662. {{xxxxxx{x
  663. zzz}z}z}z
  664. x{{{{
  665. zzz}}zzz
  666. zzzz}}}
  667. PPPWW
  668. }}}-}
  669. {{{{{{{{
  670. WPPQQ
  671. PPPPP
  672. {{{{{
  673. QQQQQQQ
  674. QQQQQQ
  675. RQRQRQR
  676. QQPPW
  677. WWWPPPW
  678. PPPPPPQQQ
  679. zzzzzz
  680. zzzz}}}z}zz
  681. {x{xx{
  682. xxx{{{{{xxx
  683. xx{zz
  684. zzzzzz
  685. PQQQQ
  686. }zz{{x{{{
  687. WPPQQ
  688. QPP}z{
  689. WPPPW
  690. QQQPP
  691. QQQQQ
  692. QQQQQ
  693. QQQQQQ
  694.                     
  695. PWPPP
  696. QQQQQ
  697. PW-z{
  698. PWWPP
  699. PPWWW
  700. PWWWPP
  701. z}}z}}
  702. WPPWW
  703. z}zzz}z
  704. }z}zz}}
  705. WWPPP
  706. }}zzz
  707. {{zz}}zzz}}}
  708. xxx{{{
  709. z}z}}zzz
  710. x{x{xx{
  711. x{x{{{{
  712. {{xxx
  713. xxx{{{{{{{zz}
  714. kLALR
  715. LLLO<keeY
  716. ee*(LL    
  717. {z}PS
  718. {zzzz{
  719. Q}}}}
  720. k<dOL
  721. SSSSSS
  722. SSSSSS
  723. h<AOL
  724. SSSSSSSSSSSS
  725. SSSSSSSSSSSS
  726. z}|,N
  727. }0    6    mVfY
  728. V2V)/
  729. W5I?r<
  730. v{M<<
  731. 56{|"
  732. ||?rm
  733. SSSSSS
  734. SSSSSS
  735. WSSSSS{
  736. SSSSSW
  737. WSSSSS{
  738. SSSSS
  739. SSSSSW
  740. P6q?uu
  741. TT[[[[}
  742. [[[[[
  743. {zzzz{
  744. {JM5u?rjT
  745. Y,jWu
  746. AOAOLOA
  747. OI?r?
  748. VWuv?v||}
  749. PQQQQQ
  750. <:<<<<<
  751. r?NqJ|}
  752. {{x{xx{xxxxxxxxx{x{
  753. xxxx{{x{x
  754. xxxxx{x{{xxxx
  755. xx{{{
  756. }z}z}zzzzzzz
  757. zzzzzz
  758. zzz}z}zzz
  759. {{{xxxxxxxx{
  760. zzz}z}z}z}zzz
  761. zz}}}
  762. {{xxxx
  763. {{{{{{{{{x
  764. VVV¥W
  765. zzz}}}
  766. WWWWPWPWPWPWW
  767. WPPPPPPWW
  768. }}}zzz
  769. xzz}}
  770. WWPPPPPPPW
  771. }}}}}z}}z}
  772. &v{||
  773. WWQQQ
  774. RRQQP
  775. PPQPQQ
  776. PPPPPP
  777. zz}}WWP
  778. PPP-}
  779. QQPP-
  780. PPPPQQQQ
  781. hu%?5|,
  782. Q}PW-x
  783. PPPPP
  784. QQPWzzx
  785. W]¥yx+
  786. WW}zzz
  787. {zz}}W
  788. WW}}zzzzz}
  789. zz{{{{{{z
  790. x{{{zz
  791. WPPPP
  792. QQQQQQ
  793. AOA"A,L,
  794. WPPPPW
  795. QQPPP
  796. PPQQQ
  797. !A,A    ALAALLL
  798. PQWz}^zz
  799. WPPPPPW-
  800. xxxx{x{x{{{{{{{x{x
  801. {x{{{{{{{{{{{{{xxxx{{{
  802. QQQQx
  803. }}}}}}}}}}
  804. xx{{z
  805. QPPPQRSS
  806. {{x{x{{{
  807. WPPPQQ
  808. {{xxx
  809. }zz}zz}z
  810. {{{{{{{z
  811. {{{{{{
  812. zzz}}
  813. zzzzz
  814. {{{{{x{{
  815. WPWPPWPW
  816. z}z}}}}
  817. }}}}}}
  818. QQQQQ
  819. QQPPP
  820. z}}}zz}z
  821. PPPWPWP
  822. QQQQQ
  823. PPPPPPPPPPP
  824. PPPPPW
  825. PPPPP
  826. PPPPPWP
  827. PWWPWPP
  828. e~6,0,
  829. $$$:#
  830. SFRw|
  831. lclklclk
  832. ^W]W]
  833. ||bwRSR
  834. lklclkll
  835. WW32,W,
  836. ,,23WWW]
  837. ,W2WW
  838. yyyyO
  839. E??cb¥
  840. NUyyy
  841. 3,3,,,,,2,,2,,,,
  842. ,,23WWV
  843. ,*g<x
  844. 20{zV
  845. ]>~xwm
  846. __VV3-
  847. ----,
  848. -2V2W
  849. |QDQP
  850. GSSRSRSR
  851. ,2WW]
  852. zV¥][
  853. ==>99
  854. QQQPP
  855. VW        WV
  856. wSLSSR
  857. |}~}S}
  858. ledbbdd
  859. QPQP"P"
  860. 3,,,    
  861. eeS760
  862. T#/_P
  863. |vRSSFbb,
  864. jdddbbd
  865. .%|~}
  866. ejdbd
  867. sUVQP.Zyz
  868. Sbba|
  869. djdcl
  870. &&,665
  871. RSSSSS
  872. ,&6&&5n
  873. *{y{+
  874. ,&%%6
  875. yV|+y
  876. ,&<,??d
  877. &&96??
  878. {z{{z$
  879. &&#<%?
  880. yyyu%tt
  881. *yUU-
  882. xz+^%#
  883. yxyzz
  884. sQvQu
  885. $_$$$
  886. ^{__+^
  887. W^WWW33,,
  888. -${_"
  889. ,,,2WWW¥V3
  890. yyyyUUU+*
  891.  RSRww
  892. ~bv}|
  893. ]V3,3
  894. ,-----
  895. ,,,V3VVV_
  896. ]UUUO*~
  897. ,,-33WVVVU
  898. hvv}}R
  899. ,    ,--32UV_{_{r
  900. VW/tQ~t.t
  901. 6SUO**
  902. >Z    Zl
  903.     --22
  904. U_{_{r
  905. UUUUUU
  906. u/V$..WuFSS
  907. ~e67,6
  908. %[%QPu
  909. W/./t
  910. SPvYw
  911. sbPUVw
  912. $P$/V$
  913. =9>9=
  914. PZ~zz{
  915. rP/+V
  916. RSRSR
  917. v[vQu.
  918. e^WWd
  919. %QRPQPQP/P/
  920. %PQt..t~txdx
  921. lblll
  922. zz~PQ
  923. PZ.yz
  924. tuZ$~~
  925. {e{q_
  926. VVW3,
  927. s.,.W
  928. VV3,    
  929. ]]cbmg
  930. _V2-    
  931. yx}-,QPr
  932. r~.%S
  933. }vbbR
  934. ,,,,<
  935. x}}V/
  936. $_%^_
  937. ,&?dQ*d
  938. ,,6,,&
  939. %_${%*$+^
  940. ,,6,<?
  941. -:-V3
  942. &,669
  943. <6,69d
  944. @IDCD
  945. PreferencesSCRP
  946. on opencard
  947.   lock screen
  948.   ShowPreferences
  949.   SaveProperties  
  950. end opencard
  951. on returnkey
  952.   click at the loc of cd btn "OK"
  953. end returnkey
  954. on enterkey
  955.   click at the loc of cd btn "OK"
  956. end enterkey
  957. on ShowPreferences
  958.   get the autoSave
  959.   set the hilite of cd btn "autosave" to (it is not 0)
  960.   send "mouseup" to cd btn "autosave"
  961.   if (it is not 0) then send "showValue it" to cd fld "autosave show"    
  962.   put the gridSize into cd fld "gridSize"
  963.   send "ValueSelected" to cd fld "rulerstyle"
  964.   put InitialCaps(the scriptFont) into cd fld "scriptFont"
  965.   put the scriptSize into word 1 of cd fld "scriptSize"
  966.   put the scriptStyle into scrptStyle
  967.   put InitialCaps(the scriptStyle) into cd fld "scriptStyle"
  968. end ShowPreferences
  969. on DoPreferences
  970.   put the ref of me into theCard
  971.   get cd fld "autosave" of theCard
  972.   if char 1 of it is "-" then
  973.     set the autosave to 0
  974.   else set the autosave to it  
  975.   set the rulerStyle to cd fld "rulerStyle" of theCard
  976.   set the gridSize to cd fld "gridsize" of theCard
  977.   set the scriptFont to cd fld "scriptFont" of theCard
  978.   set the scriptSize to word 1 of cd fld "scriptSize" of theCard
  979.   set the scriptStyle to cd fld "scriptStyle" of theCard
  980. end DoPreferences
  981. on DoCancel
  982.   lock screen
  983.   RestoreProperties
  984.   ShowPreferences
  985.   dismiss with "Cancel"
  986. end DoCancel
  987. on DoOk
  988.   dismiss with "OK"
  989. end DoOk
  990. function PropertiesSet
  991.   return "autosave,rulerstyle,gridsize,scriptfont,scriptsize,scriptstyle"
  992. end PropertiesSet
  993. on SaveProperties
  994.   put PropertiesSet() into theList
  995.   put empty into cd fld "backupPrefs"
  996.   repeat with i = 1 to the number of items of theList
  997.     do "put the "& item i of theList & " into line i of cd fld ""e&"backupPrefs""e
  998.   end repeat
  999. end SaveProperties
  1000. on RestoreProperties
  1001.   put PropertiesSet() into theList  
  1002.   repeat with i = 1 to the number of items of theList
  1003.     put item i of theList into theProperty
  1004.     put line i of cd fld "backupPrefs" into theValue
  1005.     do "set the " & theProperty & " to "& theValue
  1006.   end repeat
  1007. end RestoreProperties
  1008. function UpperCase theChar
  1009.   get offset(theChar,"abcdefghijklmnopqrstuvwxyz")
  1010.   if it is not 0 then return char it of "ABCDEFGHIJKLMNOPQRSTUVWXYZ"  
  1011.   return theChar
  1012. end UpperCase
  1013. function LowerCase theChar
  1014.   get offset(theChar,"ABCDEFGHIJKLMNOPQRSTUVWXYZ")
  1015.   if it is not 0 then return char it of "abcdefghijklmnopqrstuvwxyz"  
  1016.   return theChar
  1017. end LowerCase
  1018. function InitialCaps theString
  1019.   repeat with theWord = 1 to the number of words of theString
  1020.     put UpperCase(char 1 of word theWord of theString) into char 1 of word theWord of theString      
  1021.     repeat with theChar = 2 to the number of chars of word theWord of theString
  1022.       put LowerCase(char theChar of word theWord of theString) into char theChar of word theWord of theString
  1023.     end repeat
  1024.   end repeat  
  1025.   return theString
  1026. end InitialCaps
  1027.  GRPO
  1028. zCARD
  1029. gdata
  1030.       
  1031. AutosaveSCRP
  1032. on mouseUp
  1033.   put the hilite of me into autosaveOn
  1034.   set the enable of cd fld "autosave label" to autosaveOn
  1035.   set the enable of cd fld "autosave show" to autosaveOn
  1036.   put cd fld "autosave" into saveValue
  1037.   if autosaveOn then
  1038.     repeat while char 1 of saveValue is "-"
  1039.       delete char 1 of saveValue
  1040.     end repeat
  1041.     put saveValue into cd fld "autosave"
  1042.     set the autosave to saveValue    
  1043.   else
  1044.     if char 1 of saveValue is not "-" then put "-"&(cd fld "autosave") into cd fld "autosave" 
  1045.     set the autosave to 0
  1046.   end if
  1047. end mouseUp
  1048. scriptsizeTAIL
  1049. rulerstyleTAIL
  1050.     INFO
  1051. scriptstyleTAIL
  1052. pCARD
  1053. group id 93data
  1054. AutoSavedata
  1055. 300TAIL
  1056. OKSCRP
  1057. on mouseUp
  1058.   doOK
  1059. end mouseUp
  1060. gridsizeSCRP
  1061. on keyPressed theChar, selStart, selEnd
  1062.   -- prevent multiple decimal points and fractional pixels
  1063.   if "." is in me or me is "pixels" then
  1064.     put "0123456789" into validChars
  1065.   else
  1066.     put ".0123456789" into validChars    
  1067.   end if
  1068.   -- limit contents to 4 characters
  1069.   if theChar is in validChars and ((selStart <= selEnd) or ((the length of me) < 4)) then 
  1070.     pass keyPressed
  1071.   else beep
  1072. end keyPressed
  1073. on closeField
  1074.   -- prevent multiple decimal points and fractional pixels
  1075.   if "." is in me or fld "rulerstyle" is "pixels" then
  1076.     put "0123456789" into validChars
  1077.   else
  1078.     put ".0123456789" into validChars    
  1079.   end if
  1080.   if the length of me > 4 then
  1081.     beep
  1082.     put 9999 into me
  1083.   end if
  1084.   put the length of me into selnum
  1085.   repeat with i = 1 to selnum
  1086.     get char i of me
  1087.     if it is not in validChars then
  1088.       beep
  1089.       put the gridSize into me
  1090.       exit repeat
  1091.     end if
  1092.   end repeat
  1093.   put me into temp
  1094.   -- limit contents to 4 characters
  1095.   if the length of me > 4 or me is empty or me < 0 then 
  1096.     put the gridSize into temp
  1097.   end if    
  1098.   set the gridSize to temp
  1099.   put the gridSize into me
  1100.   send "ValueSelected" to fld "rulerstyle"
  1101. end closeField
  1102. 10TAIL
  1103. on mouseUp
  1104.   doCancel
  1105. end mouseUp
  1106. grid labeldata
  1107. h:TAIL
  1108. autosave labeldata
  1109. :TAIL
  1110. overdata
  1111. Y:TAIL
  1112. overdata
  1113. :TAIL
  1114. scriptstyleSCRP
  1115. function MenuList
  1116.   return "Plain" & return & "Bold"& return & "Italic"
  1117. end MenuList
  1118. function ValueList
  1119.   return "plain"&return&"bold"&return&"italic"  
  1120. end ValueList
  1121. function CurrentValue newValue
  1122.   if newValue is not empty then set the scriptStyle to newValue
  1123.   return the scriptstyle  
  1124. end CurrentValue
  1125. function CurrentLine
  1126.   put ValueList() into theValues
  1127.   put offset(CurrentValue(), theValues) into theChar
  1128.   return the number of lines in (char 1 to theChar of theValues)  
  1129. end CurrentLine
  1130. on mousedown
  1131.   set the hilite of cd btn (the short name of me) to true
  1132.   popupmenu MenuList() at the topleft of me with CurrentLine()
  1133.   set the hilite of cd btn (the short name of me) to false
  1134.   if it is 0 then exit mouseDown
  1135.   ValueSelected it
  1136. end mousedown
  1137. on ValueSelected theLine
  1138.   put line theLine of MenuList() into me
  1139.   get CurrentValue(line theLine of ValueList())
  1140. end ValueSelected
  1141. PlainTAIL
  1142. autosave timeTAIL
  1143. Choose Autosave TimeTAIL
  1144. Autosave ShowSCRP
  1145. function MenuList
  1146.   return "10 Seconds"& return & "30 Seconds"& return & "  1 Minute"& return & "  5 Minutes"& return & "10 Minutes"& return & "30 Minutes"& return & "  1 Hour" & return & "-"& return & "
  1147. ..."  
  1148. end MenuList
  1149. function ValueList
  1150.   return "10,30,60,300,600,1800,3600"
  1151. end ValueList
  1152. function CurrentLine
  1153.   put ValueList() into theValues
  1154.   put offset(CurrentValue(), theValues) into theChar
  1155.   if theChar is 0 then 
  1156.     return the number of lines of MenuList()
  1157.   else  return the number of items in (char 1 to theChar of theValues)  
  1158. end CurrentLine
  1159. on mousedown
  1160.   popupmenu MenuList() at the topleft of me with CurrentLine()
  1161.   if it is 0 then exit mouseDown
  1162.   if it is the number of lines of menuList() then
  1163.     OtherSelected
  1164.   else ValueSelected it
  1165. end mousedown
  1166. function CurrentValue
  1167.   return the autosave  
  1168. end CurrentValue
  1169. on ValueSelected theLine
  1170.   if theLine is empty then put CurrentLine() into theLine
  1171.   ShowValue item theLine of ValueList() 
  1172. end ValueSelected
  1173. on OtherSelected theTime
  1174.   if theTime is empty then
  1175.     ask "
  1176. ?" with the autosave
  1177.     if it is empty then exit OtherSelected
  1178.     put it into theTime
  1179.     put true into isANumber
  1180.     repeat with i = 1 to the number of chars of theTime
  1181.       if char i of theTime is not in "0123456789" then put false into isANumber
  1182.     end repeat
  1183.     if not IsANumber then
  1184.       beep
  1185.       OtherSelected
  1186.       exit OtherSelected
  1187.     else if theTime > 9999 then
  1188.       beep
  1189.       OtherSelected
  1190.       exit OtherSelected
  1191.     end if
  1192.   end if
  1193.   ShowValue theTime
  1194. end OtherSelected
  1195. on ShowValue theSeconds
  1196.   set the autosave to theSeconds
  1197.   put theSeconds into cd fld "autosave"
  1198.   if (theSeconds mod 3600) is 0 then
  1199.     if (theSeconds div 3600) is 1 then
  1200.       put "1 Hour" into me
  1201.     else put (theSeconds div 3600)&& "Hours" into me
  1202.   else  if (theSeconds mod 60) is 0 then
  1203.     if (theSeconds div 60) is 1 then
  1204.       put "1 Minute" into me  
  1205.     else put (theSeconds div 60) && "Minutes" into me    
  1206.   else
  1207.     put theSeconds && "Seconds" into me  
  1208.   end if
  1209. end ShowValue
  1210. 5 MinutesTAIL
  1211. snaptogriddata
  1212. trueTAIL
  1213. scriptfontTAIL
  1214. Choose Autosave TimeTAIL
  1215. scriptfontSCRP
  1216. function MenuList
  1217.   return "Osaka"& return & "Chicago"& return & "Courier"& return & "Geneva"& return & "Monaco"& return & "New York"& return &  "-"& return & "
  1218. ..."  
  1219. end MenuList
  1220. function ValueList
  1221.   return "OSAKA,CHICAGO,COURIER,GENEVA,MONACO,NEW YORK"
  1222. end ValueList
  1223. function CurrentLine
  1224.   put ValueList() into theValues
  1225.   put offset(CurrentValue(), theValues) into theChar
  1226.   if theChar is 0 then 
  1227.     return the number of lines of MenuList()
  1228.   else  return the number of items in (char 1 to theChar of theValues)  
  1229. end CurrentLine
  1230. on mousedown
  1231.   popupmenu MenuList() at the topleft of me with CurrentLine()
  1232.   if it is 0 then exit mouseDown
  1233.   if it is the number of lines of MenuList() then
  1234.     OtherSelected
  1235.   else ValueSelected it
  1236. end mousedown
  1237. function CurrentValue
  1238.   return the scriptfont  
  1239. end CurrentValue
  1240. on ValueSelected theLine
  1241.   put line theLine of MenuList() into me
  1242.   set the scriptfont to item theLine of ValueList()
  1243. end ValueSelected
  1244. on OtherSelected  
  1245.   put InitialCaps(the scriptfont) into oldFont
  1246. --  ask "Please enter the desired script font." with oldFont
  1247.   ask "
  1248. " with oldFont
  1249.   if it is empty then exit OtherSelected
  1250.   set the scriptFont to it
  1251.   if the scriptFont is not it then
  1252.     set the scriptfont to oldFont
  1253.     beep
  1254.     otherSelected
  1255.     exit otherSelected
  1256.   end if
  1257.   put InitialCaps(it) into cd fld "scriptfont"  
  1258. end OtherSelected
  1259. OsakaTAIL
  1260. grid label2data
  1261. pixelsTAIL
  1262. ruler labeldata
  1263. :TAIL
  1264.  INFO
  1265. rulerstyleSCRP
  1266. function MenuList
  1267.   return "Pixels" & return & "Inches" & return & "Centimeters"
  1268. end MenuList
  1269. function ValueList
  1270.   return "pixels" & return & "inches" & return & "centimeters"  
  1271. end ValueList
  1272. function LabelList
  1273.   return "pixels"&return&"inches"&return&"cm."  
  1274. end LabelList
  1275. function SingularLabelList
  1276.   return "pixel"& return &"inch"&return&"cm."  
  1277. end SingularLabelList
  1278. function CurrentValue
  1279.   return the rulerstyle
  1280. end CurrentValue
  1281. function CurrentLine
  1282.   put ValueList() into theList
  1283.   put offset(CurrentValue(), theList) into theChar
  1284.   return the number of lines in (char 1 to theChar of theList)  
  1285. end CurrentLine
  1286. on mousedown
  1287.   set the hilite of cd btn (the short name of me) to true
  1288.   popupmenu MenuList() at the topleft of me with CurrentLine()
  1289.   set the hilite of cd btn (the short name of me) to false
  1290.   if it is 0 then exit mouseDown
  1291.   ValueSelected it
  1292. end mousedown
  1293. on ValueSelected theLine
  1294.   if theLine is empty then put CurrentLine() into theLine
  1295.   put line theLine of MenuList() into theStyle  
  1296.   put theStyle into cd fld "rulerstyle"
  1297.   set the rulerStyle to theStyle
  1298.   if cd fld "gridsize" is 1 then
  1299.     get line theLine of SingularLabelList() 
  1300.   else get line theLine of LabelList()
  1301.   put it into cd fld "grid label2"   
  1302. end ValueSelected
  1303. PixelsTAIL
  1304. !INFO
  1305. "INFO
  1306. scriptsizeSCRP
  1307. function MenuList
  1308.   return "9 Point"&return&"10 Point"&return&"12 Point"&return&"14 Point"&return&"18 Point"&return&"24 Point"&return&"-"&return&"
  1309. end MenuList
  1310. function ValueList
  1311.   return "9"&return&"10"&return&"12"&return&"14"&return&"18"&return&"24"
  1312. end ValueList
  1313. function CurrentLine
  1314.   put ValueList() into theValues
  1315.   put offset(CurrentValue(), theValues) into theChar
  1316.   if theChar is 0 then
  1317.     return the number of lines of MenuList()
  1318.   else  return the number of lines in (char 1 to theChar of theValues)  
  1319. end CurrentLine
  1320. on mousedown
  1321.   popupmenu MenuList() at the topleft of me with CurrentLine()
  1322.   if it is 0 then exit mouseDown
  1323.   if it is the number of lines of MenuList() then
  1324.     OtherSelected
  1325.   else ValueSelected it
  1326. end mousedown
  1327. function CurrentValue
  1328.   return the scriptSize  
  1329. end CurrentValue
  1330. on ValueSelected theLine
  1331.   put line theLine of MenuList() into me
  1332.   set the scriptSize to line theLine of ValueList()
  1333. end ValueSelected
  1334. on OtherSelected  
  1335.   put the scriptSize into oldSize
  1336.   ask "
  1337. (1-255)" with oldSize
  1338.   if it is empty then exit OtherSelected
  1339.   put true into isANumber 
  1340.   repeat with i = 1 to the number of chars of it
  1341.     if char i of it is not in "0123456789" then put false into isANumber
  1342.   end repeat 
  1343.   if not IsANumber then
  1344.     beep
  1345.     otherSelected
  1346.     exit otherSelected
  1347.   else if it < 1 or it > 255 then
  1348.     beep
  1349.     otherSelected
  1350.     exit otherSelected
  1351.   end if  
  1352.   set the scriptSize to it
  1353.   put it &" Point" into me
  1354. end OtherSelected
  1355. 10 PointTAIL
  1356. %INFO
  1357. backupPrefsdata
  1358. pixels
  1359. OSAKA
  1360. plainTAIL
  1361.